home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / text / edit / GED313.lha / Install / data / tools / Source / appIconA.a < prev    next >
Text File  |  1994-03-29  |  313b  |  16 lines
  1.       xdef  _AddAppIconA
  2.       xref  _WorkbenchBase
  3.       xref  _LVOAddAppIconA
  4.  
  5.       SECTION AddAppIconA,CODE
  6.  
  7. _AddAppIconA
  8.       movem.l  a2-a4/a6,-(a7)
  9.       move.l   _WorkbenchBase(a4),a6
  10.       movem.l  20(a7),d0-d1/a0-a4
  11.       jsr      _LVOAddAppIconA(a6)
  12.       movem.l  (a7)+,a2-a4/a6
  13.       rts
  14.  
  15.       END
  16.